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EDTSUSSUBS - set up search and substitute strin 1b-se 9- 500° 1984 96: 9}: ¢ VAX-11 Bliss-32 V res 
4-Sep-1984 Disk KSVMSMASTER: tt Osae USSUBS.BLI; * 
; 1 1 BUiTUs "EDTSUSSUBS = set up search and substitute strings’ 
3 § § ULE 6B Srsus SSUBS ( ! Set we, search and substitute Pat ts 
3 Z i — = *v04-000' File: USSUBS.BLI Edit: 004 
4 = 
: 5 O06 : BEGIN 
: ? site ! PITITITILILILI LLL LLL LILI LT LiL LLL iiii littl iii 
; '® 
3 y 0009 1 !* COPYRIGHT as 1978, 1980, 1982, 1984 BY * 
; (10 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
3 1 Bet, : :: ALL RIGHTS. RESERVED. * 
Py ; a 
; i oOi8 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh * 
: 14 0014 1 !* ONLY IN ACCORDANCE WITH TH MS SUCH CENSE AND WITH THE * 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS OR ANY OTHER * 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 gett 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE iS HEREBY * 
Z Hs dt : - TRANSFERRED. * 
3 ; * 
3 20 0020 1 !* He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
5 $$ o5 ; : i? CORPORA’ ION. * 
Py .* % 
3 24 00246 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $2 B05¢ ! ‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
° | * 
; ag pee 1 !* * 
F $8 80 : : "peracetic ah aaa hhh ink aan hinsin inlet niin elicit 
; §0 $080 1 
3 1 0031 1 !+4+¢ 
; i t4 1 ! FACILITY: EDT == The DEC Standard Editor 
Pe. 0033 1! 
4 34 0034 1 ! ABSTRACT: 
. t 0035 1! 
; 3 it : Set up search and substitute strings. 
: $ it : ! ENVIRONMENT: Runs at any access mode - AST reentrant 
: 40 0040 ! AUTHOR: Bob Kushlis, CREATION DATE: February 7, 1978 
: 4@ 0042 1 | MODIFIED BY: 
«© 0043 1! 
3 44 ng: 1 ! 1-001 = Original. DJS 19-FEB-1981. This module was created by 
7. & 045 1! gutracting routine EDTS$$SET _SEASUBSTR from module UTIL 
; 646 0046 1 ! 1-002 - Regularize headers and don't store into the parameter list. JBS 11-Mar-1981 
eae 0047 1 ! 1-003 - Add an error return. JBS 04-May-1982 
: 48 0048 1 ! 1-004 = Allow O-length substitute strings. JBS 09-Jun-1982 
3 $3 0049 ! len 
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EDTSUSSUBS EDTSUSSUBS = set_up search and substitute strin 18-50 -1984 02:01: VAX=11 Bliss-32 V4.0-74 Page 3) EDT 
dt tits EDTSSSET SEASUBSTR” = set up search and substit 1 ~3007 1382 95:93 :8? DISKSVMSMASTER- EDT SRCSUSSUBS.BLI;1 ’ (3). v04 
3 ? ° 5 } ZSBITL “EDTSSSET_SEASUBSTR = set up search and substitute strings’ | 
: 7 6 § 1 GLOBAL ROUTINE EDTSS$SET_SEASUBSTR ( ! Set up search and substitute strings 
$ 8 6 8 1 SEARCH, ! Address of new search string 
; 9 6 1 SLEN ' Its length 
; 969 1 SuBSfR, ! Address of new substitute string 
; 91 661 1 —SUBLE i Its Length | 
; 9 66¢ 1) = | 
34 a4 1 t06 
: 95 0665 1 | FUNCTIONAL DESCRIPTION: | 
; $7 Ose? : Set-up the the search and substitute strings. 
; 133 0669 1 i FORMAL PARAMETERS: 
: 101 0671 i SEARCH Pointer to the new search string 
; 108 0678 : ; SLEN Length of the search string. 
; ane beoe : ; SUBSTR Pointer to the new substitute string. 
: Hy t4 +A 4 : SUBLEN Length of substitute string. 
; 109 0679 1 { IMPLICIT INPUTS: 
: 111 0681 1: EDTS$$T_SUB_STR 
2 Ng 0682 1 | EDT$$G_SUB-STRLEN 
; 114 0684 1 ! IMPLICIT OUTPUTS: 
: 116 0686 1 | EDT$$T_SUB_STR 
3 a 4 pene ; EDT$$G_SUB_STRLEN 
; 119 0689 | { ROUTINE VALUE: 
> 121 0691 1! 1 = success 
; 1$¢ 369 ! 0 = invalid string 
; 124 0694 1 i SIDE EFFECTS: | 
> 126 0696 1} Calls EDTSSSET_SEASTR to set up the search string. 
3 Yer 0697 1! | 
; 128 0698 1 !-- 
: 129 0699 1 | 
; 130 Bf BEGIN 
: 138 0708 EXTERNAL ROUTINE | 
: 18 0703 EDTS$SSET_SEASTR; | 
: 135 705 XTERNAL | 
; 1% 0706 . EDTS$T_SUB_STR : BLOCK CCHSALLOCATION (64)], ! Last substitute string. | 
3 1 ait EDT$$G_SUB_STRLEN; ! Length of above. | 
; 139 $709 LOCAL | 
: 140 9710 RET_VALUE; 
3; «(141 711 


M 2 
EDT UBS EDTSUSSUBS = set up search and substitute strin 16-Sep-1984 :01:22 VAX-11 Bliss-32 V4.0-74 Page 4 
teint EDTSSSET SEASUBS TR” = set up search and substit 127808213 4 95:91 :2 NIEKSVMEHASTER-CEDT SACSuSsuBS.BLI;1 " (3) 
; 14 ay IF ((-SUBLEN GEQ 0) AND (.SUBLEN LEQ 64)) 
: 144 714 BEGIN 
; 145 ar RET_VALUE = EDTSSSET_SEASTR (.SEARCH, .SLEN); 
5 147 on? IF, gRET_VALUE 
: 149 ah 4 BEGIN 
: 150 720 4 EDTSSCPY_MEM (.SUBLEN, .SUBSTR, EDTS$$T_SUB_STR); 
> 151 0721 4 EDT$$G_SOB_STRLEN = .SUBLEN; 
; 13¢ of ‘ END; 
; 184 07 4 END 
; 136 0726 RET_VALUE = 0; | 
, 57 07 
: 158 0728 RETURN (.RET_VALUE); 
: 159 0729 1 END; ! of routine EDT$SSET_SEASUBSTR 


-TITLE EDTSUSSUBS EDTSUSSUBS - set up search and subst 
; itute strin 
-IDENT \V04-000\ 


-EXTRN EDTSSSET_SEASTR 
-EXTRN EDTS$T_SOB_STR, EDT$$G_SUB_STRLEN 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


00FC 00000 .ENTRY EDTSS$SET_SEASUBSTR, Save R2,R3,R4,R5,R6,R7_ ; 
56 10 AC DdO 00002 MOVL SUBLEN, R6 : 
eC 19 00006 BLSS : 
00000040 8F 6 D1 00008 CMPL =s_- RO, #64 : 
23 14 O000F BGTR 1$ F 
7E 04 AC 7D 00011 MOVQ SEARCH, -(SP) : 0715 
000000006 00 02 FB 00015 CALLS #2, EDTS$SET_SEASTR : 
57 50 D0 9001¢ MOVL RO, RET VALUE : 
14 57 €9 OOO1F BLBC_ RET_VALOE, 2$ : 0717 
000000006 00 oc BC 56 28 00022 MOVC3 R6, aSUBSTR, EDT$$T_SUB_STR : 0720 
000000006 00 56 00 000 8 MOVL 6, EDT$$G_SUB_STRLEN : 0721 
0@ 11 000 BRB 2$ : 0712 
57 D4 00034 1$: CLRL - RET_VALUE : 0726 
50 57 00 00036 2$: MOVL § RET“VALUE, RO : 0728 
04 00039 RET : 0729 


; Routine Size: 58 bytes, Routine Base: _EDTSCODE + 0000 


: 160 0730 
: 161 0731 
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EDT UBS EDTSUSSUBS - set up search and substitute strin 16-Sep-1984 02:01: VAX-11 Bliss-32 V4.0-74 e 5. 

retin EDTSSSE1. SEASUBSTR - set up search and substit o7gen- 138% 95:91:62 DISKSVMSMAS TER: CEDT.SRCJUSSUBS.BLI;1 es (4) | 

; 163 732 1 END ! of module EDT$USSUBS | 

164 Ors 1 oem | 

; 165 734 0 ELUDOM | 

: PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 58 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

Be at ek Seg ee Pe oie oe as 7 eee Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28: fe DT.SRCJEDT.L32;1 377 0 0 40 00:00.2 

3; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:USSUBS/OBJ=0BJ$:USSUBS MSRC$:USSUBS.BLI/UPDATE=(ENH$:USSUBS) 

3 Size: 58 code + 0 data bytes 

3; Run Time: 

; Elapsed Time: 00; 12.6 

Z Lines/CPU Min: 444 

3 oneneesSPy-Mias 1198 

; Y Used: 61 pages 

Z pe ation Complete | 
} 
| 
| 
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